home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / pc / cdfactor / hcfactor / hcode.exe / hcode.DXR / 00042_player idle PC.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  2.0 KB  |  61 lines
  1. global gFieldTop, gchaptertextheight, theQTMovie, gMoovOutTime, gPauseMode, theBlitPict, grectlist, gNewEnter, gAfterClick, gcurrlessonnumber, gcurrchapternumber, objCapturePict, onIBM, glessonnumber
  2.  
  3. on enterFrame
  4.   pause()
  5. end
  6.  
  7. on idle
  8.   if gPauseMode then
  9.     if rollOver(6) then
  10.       set theMouseLine to (mouseV() - gFieldTop) / gchaptertextheight
  11.       if (theMouseLine <= glessonnumber) and (theMouseLine > 0) then
  12.         if gNewEnter then
  13.           blitPictInitScreen(theBlitPict, getAt(grectlist, 3))
  14.           blitPictDrawObj(theBlitPict, the srcrect of theBlitPict, the POINTER of objCapturePict, the srcrect of objCapturePict, "copy")
  15.           blitPictDispose(theBlitPict)
  16.           QTaway(theQTMovie)
  17.           set the locV of sprite 8 to (theMouseLine * gchaptertextheight) + gFieldTop
  18.           set the visible of sprite 8 to 1
  19.           updateStage()
  20.           showpreview(theMouseLine)
  21.           set gNewEnter to 0
  22.         else
  23.           if gAfterClick then
  24.             set the locV of sprite 8 to (theMouseLine * gchaptertextheight) + gFieldTop
  25.             updateStage()
  26.           else
  27.             set the locV of sprite 8 to (theMouseLine * gchaptertextheight) + gFieldTop
  28.             updateStage()
  29.             showpreview(theMouseLine)
  30.           end if
  31.         end if
  32.       end if
  33.     else
  34.       if gNewEnter = 0 then
  35.         if gAfterClick then
  36.           set the visible of sprite 8 to 0
  37.           updateStage()
  38.           set gNewEnter to 1
  39.           set gAfterClick to 0
  40.         else
  41.           blitPictDrawScreen(objCapturePict, the srcrect of objCapturePict, getAt(grectlist, 3), "copy", 0, 0)
  42.           QTreturn(theQTMovie)
  43.           set the visible of sprite 8 to 0
  44.           updateStage()
  45.           set gNewEnter to 1
  46.         end if
  47.       end if
  48.     end if
  49.   else
  50.     if gAfterClick then
  51.       set the visible of sprite 8 to 0
  52.       updateStage()
  53.       set gNewEnter to 1
  54.       set gAfterClick to 0
  55.     end if
  56.     if QTGetCurrtime(theQTMovie) >= gMoovOutTime then
  57.       callbackplay()
  58.     end if
  59.   end if
  60. end
  61.